home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / game / misc / Quest.lha / Quest / lib / go-exe-check.rexx < prev    next >
OS/2 REXX Batch file  |  1999-01-28  |  269b  |  27 lines
  1. /* go-exe-check rexx */
  2.  
  3. parse arg exe .
  4.  
  5. if exe = '' then
  6.   ret = 5
  7. else do
  8.  
  9.   if open('in',exe,'R') then do
  10.  
  11.     id = c2x(readch('in',4))
  12.     call close('in')
  13.  
  14.     if id = '000003F3' then
  15.       ret = 0
  16.     else
  17.       ret = 5
  18.  
  19.   end
  20.   else
  21.     ret = 5
  22.  
  23. end
  24.  
  25. exit ret
  26.  
  27.